home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / TestStack.cpt / Test Stack / card_3714.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  96 lines
  1. -- card: 3714 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2753
  5. -- name: MoveDialog XCMD
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=404 top=310 right=332 bottom=504
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Show Answer
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   Answer "This is the current loc of the Answer" with "OK"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 8003
  30. -- rect: left=6 top=75 right=341 bottom=122
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Move Answer
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   MoveDialog "Answer","the clickLoc"
  42.   Answer ("You clicked at " & the clickLoc) with "OK"
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 8003
  50. -- rect: left=404 top=285 right=307 bottom=504
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Show Ask
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   Ask "This is the current loc of Ask" with "OK"
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 4 (button)
  67. -- low flags: 00
  68. -- high flags: 8003
  69. -- rect: left=151 top=75 right=341 bottom=267
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Move Ask
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   MoveDialog "Ask","the clickLoc"
  81.   Ask "You clicked at" with the clickLoc
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part contents for background part 26
  87. ----- text -----
  88. page 3
  89.  
  90. -- part contents for background part 25
  91. ----- text -----
  92. MoveDialog XCMD
  93.  
  94. -- part contents for background part 30
  95. ----- text -----
  96. 353108